unit exibeaniversarios_unt;

interface

uses
  funcoes,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, jpeg, RXCtrls,
  ComCtrls, RxGIF, Grids, DBGrids, DB;

type
  Texibeaniversarios_frm = class(TForm)
    Panel3: TPanel;
    Button1: TButton;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  exibeaniversarios_frm: Texibeaniversarios_frm;

implementation

{$R *.dfm}

Uses principal_unt, DMSistema_unt;

procedure Texibeaniversarios_frm.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
  begin
    key := #0;
    selectnext(twincontrol(sender),true,true);
  end;
end;

procedure Texibeaniversarios_frm.Button1Click(Sender: TObject);
begin
  close;
end;

procedure Texibeaniversarios_frm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  exibeaniversarios_frm := nil;
  action := cafree;
end;

end.

